home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / IE_Import.adpro < prev    next >
Text File  |  1997-01-09  |  2KB  |  88 lines
  1. /*
  2. ** $VER: IE_Import 1.11 (9/1 1997 Stockholm/Sweden)
  3. **
  4. ** Copyright © 1997 by Patrik M Nydensten
  5. **
  6. ** This arexx script will import the SECONDARY image in
  7. ** ImageEngineer to ADPro. Both programs must be running at
  8. ** the same time.
  9. ** This script requires ADPro v2.5.0 (or higher)
  10. ** and ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SAVE_DEFAULTS 't:TempDefaults.adpro'
  16. TEMP_FILE = 't:Image_from_IE'
  17.  
  18. NL = '0A'X
  19. SQ = '27'X
  20. DQ = '22'X
  21. TRUE  = 1
  22. FALSE = 0
  23.  
  24. /* Main code */
  25.  
  26. IF ~SHOW(PORTS,'IMAGEENGINEER') THEN DO
  27.   ADDRESS "ADPro"
  28.      ADPRO_TO_FRONT
  29.      OKAY1 "Could not locate IE's arexx port!"
  30.     CALL ErrorOut 10
  31. END
  32.  
  33. ADDRESS "IMAGEENGINEER"
  34.  
  35. 'GET' 'SECONDARY'
  36. IF RESULT = '' THEN DO
  37.   ADDRESS "ADPro"
  38.      ADPRO_TO_FRONT
  39.      OKAY1 'No SECONDARY image selected in IE!'
  40.   ADDRESS "ADPro"
  41.   IE_TO_FRONT
  42.     CALL ErrorOut 10
  43. END
  44. SECONDARY_IMAGE = RESULT
  45.  
  46. 'SAVE_DATA' SECONDARY_IMAGE '"'||TEMP_FILE||'"' '"ILBM CmpByteRun1"'
  47. IF (RC ~= 0) THEN DO
  48.   ADDRESS "ADPro"
  49.      ADPRO_TO_FRONT
  50.      OKAY1 'Error when saving secondary image from IE!'
  51.     CALL ErrorOut 10
  52. END
  53.  
  54.  
  55. ADDRESS "ADPro"
  56.  
  57. LOADER "UNIVERSAL" TEMP_FILE
  58. IF (RC ~= 0) THEN DO
  59.      ADPRO_TO_FRONT
  60.      OKAY1 'Error when loading image into ADPro!'
  61.     CALL ErrorOut 10
  62. END
  63.  
  64. ADPRO_TO_FRONT
  65.  
  66. CALL ErrorOut 0
  67.  
  68. /* Errorout procedure */
  69.  
  70. ErrorOut:
  71.     PARSE ARG ExitCode
  72.  
  73.     IF (EXISTS( SAVE_DEFAULTS )) THEN DO
  74.         LOAD_DEFAULTS SAVE_DEFAULTS
  75.         IF (RC ~= 0) THEN DO
  76.             ADPRO_TO_FRONT
  77.             OKAY1 "Error restoring settings."
  78.         END
  79.  
  80.         ADDRESS COMMAND "Delete >NIL:" SAVE_DEFAULTS
  81.     END
  82.  
  83.     IF (EXISTS( TEMP_FILE )) THEN DO
  84.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  85.   END
  86.   
  87.     EXIT ExitCode
  88.